Imports System.Xml
Imports System.Net
Imports System.IO
Imports System.Deployment
Public Class RSS
    Dim Output As String
    Dim uri As String = "http://www.bbc.co.uk/travelnews/tpeg/en/pti/tube_rss.xml"
    Dim rss As New RSSChannel("http://www.bbc.co.uk/travelnews/tpeg/en/pti/tube_rss.xml")
    Dim rsscn As New RSSItem

    Private feedItems As ArrayList
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim currentItem As RSSItem
        currentItem = feedItems(2)
        MsgBox(currentItem.Description)

    End Sub

  

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       
    End Sub

    Private Sub RSS_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        feedItems = rss.GetChannelItems()
        ListBox1.DisplayMember = "Title"
        ListBox1.ValueMember = "Title"
        ListBox1.DataSource = feedItems
        ListBox2.DisplayMember = "description"
        ListBox2.ValueMember = "description"
        ListBox2.DataSource = feedItems

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If TextBox1.Text = My.Computer.Clock.LocalTime.ToString Then

            MsgBox("Test")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox(My.Computer.Clock.LocalTime.TimeOfDay.ToString)
    End Sub
End Class